查询字段加入_Identify,代码如下。
Tables("
测试_table1").Fill("Select {供应商联络人}.[_Identify],简称,{供应商资料表}.代码,名称,交易币种,结款条件,税率,地址,{供应商资料表}.电话,传真,Email,Website,简介,登记人,登记
时间,联系人,职务,{供应商联络人}.电话 As [联系方式] From {供应商资料表} Inner JOIN {供应商联络人} ON
{供应商联络人}.[代码] = {供应商资料表}.[代码]","ERP",True)
Dim i As Integer =Tables("测试_table1").DataTable.DataRows.Count With Tables("测试_Table1").DataTable .LoadFilter = "" .LoadTop = 15 .LoadPage = 0 .Load() e.Form.Controls("页码信息").Text= "共[" & .TotalPages & "] 页 ,当前为第[" & .LoadPage+1 & "]页,共[" & i & "]行数据" End With
|