双击flexcell属性 - 编程论坛

#2

wube2012-10-02 09:39

双击Flexcell的同时获取栏位的位置，
病读取Flexcell资料串中资料索引，
再将文本框移动至该位置，
再失焦的同时将文本里的值，
储存写入到Flexcell资料索引中，
并显示到UI上，示例代码百度到处都是

#3

liujoey2012-10-03 11:24

能写代码出来吗，谢谢，百度上没找到

#4

wube2012-10-03 13:32

原来这个控件更简单
它已经先帮你把文本框整合进去了

form1:

程序代码：

Option Explicit

Private Sub Form_Load()
    Grid1.Cell(1, 1).Text = "AAA"
    Grid1.ReadOnly = True
    Form2.Show
End Sub

Private Sub Grid1_DblClick()
Dim a As Integer, b As Integer
    With Grid1
        a = .MouseRow: b = .MouseCol
        Form2.Grid1.Cell(a, b).Text = .Cell(a, b).Text
    End With
End Sub

#5

liujoey2012-10-03 23:52

谢谢，谢谢wube的热心帮助，谢谢！

#6

liujoey2012-10-04 11:06

双击后只能把一个格子里的数据加到另个窗体中的GRID表里，不能加整行数据哦！

#7

wube2012-10-04 12:19

您忘了VB6有For循环这个指令

#8

liujoey2012-10-04 15:17

请赐教代码，谢谢，谢谢、1

#9

liujoey2012-10-04 15:46

Private Sub Grid1_DblClick()
Dim i As Long
With Grid1
Form2.Grid1.Rows = Form2.Grid1.Rows + 1
For i = 1 To Grid1.Rows - 1
Form2.Grid1.Cell(i, 1).Text = .Cell(i, 1).Text
Form2.Grid1.Cell(i, 2).Text = .Cell(i, 2).Text
Form2.Grid1.Cell(i, 3).Text = .Cell(i, 3).Text
Form2.Grid1.Cell(i, 4).Text = .Cell(i, 4).Text
Form2.Grid1.Cell(i, 5).Text = .Cell(i, 5).Text
Form2.Grid1.Cell(i, 6).Text = .Cell(i, 6).Text
Form2.Grid1.Cell(i, 7).Text = .Cell(i, 7).Text
Form2.Show
Next i
End With
End Sub
这里提示“对象变量或With块变量未设置”
求解！