-- 作者:pb_1
-- 发布时间:2012/2/28 15:45:00
-- 这样情况下如何切换到下一条记录
状况说明:
1、外部数据,每一列做了数据字典。做了个表视图
2、主窗体表控件,与外部视图绑定,通过表视图显示数据,代码如下:
Tables("主窗口_Table1").DataSource = DataTables("LQK") Tables("主窗口_Table1").OpenView("网录录取库视图") Tables("主窗口_Table1").AllowEdit = False
3、当双击主窗体表控件时出现一个个人信息窗体,界面如下
此主题相关图片如下:未命名.jpg

在afterload事件上将主窗口中的表视图各个列于控件绑定
With e.Form .Controls("TextBox1").BindingField = "主窗口_Table1.KSH" .Controls("TextBox2").BindingField = "主窗口_Table1.XM" .Controls("TextBox3").BindingField = "主窗口_Table1.SFZH" .Controls("TextBox4").BindingField = "主窗口_Table1.ZXMC" .Controls("TextBox5").BindingField = "主窗口_Table1.kslxmc" .Controls("TextBox6").BindingField = "主窗口_Table1.klmc" .Controls("TextBox7").BindingField = "主窗口_Table1.lxdh" .Controls("TextBox8").BindingField = "主窗口_Table1.tdcj" .Controls("TextBox9").BindingField = "主窗口_Table1.bylbdm" .Controls("TextBox10").BindingField = "主窗口_Table1.sjr" .Controls("TextBox11").BindingField = "主窗口_Table1.pcmc" .Controls("TextBox12").BindingField = "主窗口_Table1.yzbm" .Controls("TextBox13").BindingField = "主窗口_Table1.jtdz" .Controls("ComboBox1").BindingField = "主窗口_Table1.mzdm" .Controls("ComboBox2").BindingField = "主窗口_Table1.xbdm" .Controls("ComboBox3").BindingField = "主窗口_Table1.zzmmdm" .Controls("ComboBox4").BindingField = "主窗口_Table1.zydm" .Controls("ComboBox6").BindingField = "主窗口_Table1.kslbdm" .Controls("ComboBox7").BindingField = "主窗口_Table1.jhxzmc" .Controls("DateTimePicker1").BindingField = "主窗口_Table1.csny"
End With
问题1:
此主题相关图片如下:未命名.jpg
 在民族,性别,政治面貌,录取专业这里显示的是代码,我在列属性里做了数据字典,在控件上也的显示列和取值列也做了设置,可是却没显示出文本,求解决方法。
问题2,:
点下一条,上一条,等按钮没有任何反应,求相关代码
我的代码如下
下一条:
With Tables("LQK") “LQK是外部数据表” If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改 .Position = .Position + 1 End If End With
上一条:
With Tables("lqk") If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改 .Position = .Position - 1 End If End With
|