datagrid问题,请高手帮忙! datagrid显示数据后,当我选中其中一列如果判断我选中是那一列,比如我选中ID为10的,那么如果取出ID值?本人比较菜,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 建议参考MSDN...或<<VB控件大全>> 不对,应该是选中一行,如果选中ID为10的那行,我怎么取出ID值?谢谢 '*************************************************************************'**函 数 名:DataDL_RowColChange'**输 入:LastRow(Variant) -'** :ByVal LastCol(Integer) -'**输 出:无'**功能描述:'**全局变量:'**调用模块:'**作 者:孤夜寒心泪'**日 期:2007-06-21 17:31:22'**修 改 人:'**日 期:'**版 本:V1.0.0'*************************************************************************Private Sub DataDL_RowColChange(LastRow As Variant, ByVal LastCol As Integer) On Error GoTo ToExit '打开错误陷阱 '------------------------------------------------ With DataDL flagID = .Columns(0).CellText(.Book) txtSBZ.Text = .Columns(1).CellText(.Book) txtSBRL.Text = .Columns(2).CellText(.Book) txtKD.Text = .Columns(3).CellText(.Book) txtCOS.Text = .Columns(4).CellText(.Book) txtSBZ.Enabled = False txtSBRL.Enabled = False txtKD.Enabled = False txtCOS.Enabled = False cmdQX.Enabled = False End With '------------------------------------------------Exit Sub '----------------ToExit: Resu 请一段简单的代码。。。实在不知道怎么写 请教高手:在VB里怎么实现界面全屏显示(全屏时控件的大小也随之改变)? subitems的问题 DataGrid显示数据问题 再问:mshflexgrid绑定记录集后不正常? 如何连接本地ACCESS数据库? VB是刚开始学,我现在想用VB写控件,以前没有搞过,我应该怎么下手! 请教:VB调用WORD后查找替换问题[字符串过长] 各位高人谈谈ObjPtr是干什么用的!! 那位大哥知道那里有TC2.0、BC3.1下载? vb如何识别word里用公式编辑器创建的公式 请熟悉VB+SQLSERVER2000,并且Treeview控件非常熟悉的人来看看?
如果选中ID为10的那行,我怎么取出ID值?谢谢
'**函 数 名:DataDL_RowColChange
'**输 入:LastRow(Variant) -
'** :ByVal LastCol(Integer) -
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:孤夜寒心泪
'**日 期:2007-06-21 17:31:22
'**修 改 人:
'**日 期:
'**版 本:V1.0.0
'*************************************************************************
Private Sub DataDL_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
With DataDL
flagID = .Columns(0).CellText(.Book)
txtSBZ.Text = .Columns(1).CellText(.Book)
txtSBRL.Text = .Columns(2).CellText(.Book)
txtKD.Text = .Columns(3).CellText(.Book)
txtCOS.Text = .Columns(4).CellText(.Book)
txtSBZ.Enabled = False
txtSBRL.Enabled = False
txtKD.Enabled = False
txtCOS.Enabled = False
cmdQX.Enabled = False End With
'------------------------------------------------Exit Sub '----------------
ToExit:
Resu