主题：这样情况下如何切换到下一条记录

状况说明：

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

With Tables("主窗口_Table1") 
      If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
              .Position = .Position + 1 
      End If
End With

狐狸爸爸！我解决了问题二，问题一可以解决吗？

数据字典对于窗口无效