嗯嗯，可以了。但转换成控件的值后,同样的代码在一个事件(NumericComboBox1的
ValueChanged事件)中运行正常,在另一个事件(如下一页按钮的单击事件)中却出错.
此主题相关图片如下：qq图片20160628164519.png
Dim nc As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
'Dim d As Double
'Double.TryParse(nc.Value, d) '将变量s的内容转换为数值,并存放在变量d中
vars("页数") += 1
If vars("页数") <= 1 Then
DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} ORDER BY 序号,[_Identify]")
Else
DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} WHERE [_Identify] NOT In (Select TOP " & (vars("页数")-1)* " & nc.Value & " & " [_Identify] F ROM {基层法律服务机构信息表} ORDER BY 序号,[_Identify]) ORDER BY 序号,[_Identify]")
End If
Tables("基层法律服务机构信息表").Sort="序号"
加好友 
发短信
Post By：2016/6/28 16:52:00 [只看该作者]
