这是用MSFlexGrid1实现的表格,串口通信
程序代码:
MSFlexGrid1.Cols = 7
MSFlexGrid1.Rows = 200 + 1
MSFlexGrid1.Col = 0
For I = 1 To 200
MSFlexGrid1.Row = I: MSFlexGrid1.TextMatrix(I, 0) = " " + Str$(I)
Next I
MSFlexGrid1.TextMatrix(0, 1) = "S1"
MSFlexGrid1.TextMatrix(0, 2) = "S4"
MSFlexGrid1.TextMatrix(0, 3) = "S2"
MSFlexGrid1.TextMatrix(0, 4) = "S3"
MSFlexGrid1.TextMatrix(0, 5) = "α"
MSFlexGrid1.TextMatrix(0, 6) = "β"
MSFlexGrid1.TextMatrix(num, 1) = filedata3(num)
MSFlexGrid1.TextMatrix(num, 2) = filedata6(num)
MSFlexGrid1.TextMatrix(num, 3) = filedata5(num)
MSFlexGrid1.TextMatrix(num, 4) = filedata4(num)
MSFlexGrid1.TextMatrix(num, 5) = filedata1(num)
MSFlexGrid1.TextMatrix(num, 6) = filedata2(num)
怎么用datagrid实现,有datagrid的例子吗
程序代码:
MSFlexGrid1.Cols = 7
MSFlexGrid1.Rows = 200 + 1
MSFlexGrid1.Col = 0
For I = 1 To 200
MSFlexGrid1.Row = I: MSFlexGrid1.TextMatrix(I, 0) = " " + Str$(I)
Next I
MSFlexGrid1.TextMatrix(0, 1) = "S1"
MSFlexGrid1.TextMatrix(0, 2) = "S4"
MSFlexGrid1.TextMatrix(0, 3) = "S2"
MSFlexGrid1.TextMatrix(0, 4) = "S3"
MSFlexGrid1.TextMatrix(0, 5) = "α"
MSFlexGrid1.TextMatrix(0, 6) = "β"
MSFlexGrid1.TextMatrix(num, 1) = filedata3(num)
MSFlexGrid1.TextMatrix(num, 2) = filedata6(num)
MSFlexGrid1.TextMatrix(num, 3) = filedata5(num)
MSFlexGrid1.TextMatrix(num, 4) = filedata4(num)
MSFlexGrid1.TextMatrix(num, 5) = filedata1(num)
MSFlexGrid1.TextMatrix(num, 6) = filedata2(num)
怎么用datagrid实现,有datagrid的例子吗