改变当前列的方法是什么 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在窗体中插入表，绑定表【职工信息】，鼠标选定了的列为【性别】，则当前列为“性别”，

在保存这个表时，为了不触发某些代码，要不论当前列是什么，都统一改为【身份证号】，请问怎么写代码？

在AfterSelchange 事件中我写了这样的代码，如果把当前列选定为身份证号，下面代码就不会执行了

Dim c As Col = e.Table.Cols(e.NewRange.ColSel) 'C 为当前列

Dim dr As Row

dr = e.Table.Rows(e.NewRange.rowSel) 'dr 为当前行

If C.Name <> "姓名" And C.Name <> "身份证号" Then '如果正在编辑的是[..]列

With DataTables("教职工历月信息")

.DataRows.Clear()

End With

'()---调数据库中的当月数据

Dim mg As New Merger

mg.SourcePath = ProjectPath &"\Data\数据库.mdb" '指定数据文件

mg.SourceTableName = "职工信息"

mg.DataTableName = "职工历月信息"

mg.Filter = " 身份证号 = '"& dr("身份证号") &"' "

mg.FieldMaps.Add("台帐年月","台帐年月")

mg.FieldMaps.Add("身份证号","身份证号")

mg.FieldMaps.Add("姓名","姓名")

mg.FieldMaps.Add( C.Name ,"信息列")

mg.Merge()

'-- 改列标题

With DataTables("职工历月信息")

.DataCols("信息列").Caption = C.Name

.BuildHeader

End With

End If

此主题相关图片如下：1.jpg

【职工信息】表中显示的是2017年2月的职工信息，鼠标点击职工“李四”时，当前列为"月考分”，

要触发的理由：

此时当前行为“李四”，当前列为“月考分”，希望在鼠标点击时引起触发AfterSelchange事件，然后就读取“李四”的2016年1月到2017年1月的信息，并读取到表“教职工历月信息”中，这样当前表是2017年2月信息，同时又能看到“李四”在以前各个月中的“”月考分“”，以观察该职工的月考分变化情况。

不要触发的理由：

当对“职工信息”表进行逐行保存时，保存过程中设置了把每行作为当前行的语句，使得使用者能直观看到正在保存的行，但此时没有必要触发AfterSelchange事件的代码。

为此我希望在保存时，当前列改为“身份证号”列，多谢各位老师费心了，谢谢老师！

[此贴子已经被作者于2017/2/24 20:57:25编辑过]

这个间接的方法我也想过，问这个问题就是也想了解一下，用代码设置当前列可不可以？

谢谢老师，我就用7楼的方法，这个方法其他地方我也用过，挺有针对性，清楚明了，不容易引起莫名的错误。

主题：改变当前列的方法是什么