7493
社区成员
请问：如何获取当前行的所有列？我这么写怎么不对？
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
MsgBox DataGrid1.RowContaining(Y)
For i = 0 To (DataGrid1.Columns.Count - 1)
Form2.Label1(i).Caption = DataGrid1.Columns.Item(i)
Form2.Label1(i).ForeColor = &HC00000
Form2.Label1(i).BackStyle = 0
Next i
Form2.Show
Form2.SetFocus
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox DataGrid1.RowContaining(Y) 返回的行数，怎么使用DataGrid1.RowContaining(Y)行的所有列的信息
Dim i As Integer
MsgBox DataGrid1.RowContaining(Y)
For i = 0 To (DataGrid1.Columns.Count - 1)
Form2.Label1(i).Caption = DataGrid1.Columns.Item(i)
Form2.Label1(i).ForeColor = &HC00000
Form2.Label1(i).BackStyle = 0
Next i
Form2.Show
Form2.SetFocus
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox DataGrid1.RowContaining(Y) 返回的行数，怎么使用DataGrid1.RowContaining(Y)行的所有列的信息
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zhp80 2003-05-08
本例是保存用户开始实施一个拖动方法时所处单元的值。
Dim SaveValue
Sub DataGrid1_MouseDown (Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim RowValue, ColValue
'获得鼠标经过的行列值。
RowValue = DataGrid1.RowContaining(Y)
ColValue = DataGrid1.ColContaining(X)
'如果两个值都有效，则保存单元的文本并
'开始拖动。
If RowValue > 0 And RowValue < DataGrid1.VisibleRows And _
ColValue > 0 And ColValue < DataGrid1.VisibleCols Then
SaveValue = DataGrid1.Columns(ColValue). _
CellValue(DataGrid1.RowBookmark(RowValue))
DataGrid1.Drag 1
End If
End Sub
Dim SaveValue
Sub DataGrid1_MouseDown (Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim RowValue, ColValue
'获得鼠标经过的行列值。
RowValue = DataGrid1.RowContaining(Y)
ColValue = DataGrid1.ColContaining(X)
'如果两个值都有效，则保存单元的文本并
'开始拖动。
If RowValue > 0 And RowValue < DataGrid1.VisibleRows And _
ColValue > 0 And ColValue < DataGrid1.VisibleCols Then
SaveValue = DataGrid1.Columns(ColValue). _
CellValue(DataGrid1.RowBookmark(RowValue))
DataGrid1.Drag 1
End If
End Sub
hsn1982 2003-05-08
呵呵
happyjsj 2003-05-08
不好意思 ，问题我自己解决了！
基于java的企业人事管理系统设计--软件工程课程设计（含源码与论文设计）.rar 1 引言 4
1.1 课程设计目标 4
1.2 编程工具（编程环境）介绍 4
1.3 实施时间及主要实施步骤 4
2 需求分析 5
3 系统总体设计 6
4 数据库设计 6
5 主要功能模块的设计与实现 10
5.1 功能模块1详细设计（综合查询员工信息）..........................................................10
5.1.1 详细设计.......................................................................................................10
5.1.2 算法流程........................................................................................................15
5.1.3 界面设计及测试结果.....................................................................................15
6 调试分析 15
7 用户手册 16
8 测试结果 17
8.1 员工信息的添加...................................................................................................17
8.2 员工信息的修改...................................................................................................17
8.3 员工信息的删除...................................................................................................18
8.4 员工信息的综合查询...........................................................................................18
8.5 员工信息按性别统计的结果................................................................................19
8.6 员工信息按状态统计的结果...............................................................................19
8.7 员工信息按职称统计的结果................................................................................20
9 结论 20
10 参考文献 20
