-- 作者：zxyds2000
-- 发布时间：2011/6/10 14:18:00
-- 用 DataRows( ) 取值时的问题
我在用DataRows() 取值时，DataRows(0) 到DataRows(5) 都能取到值，DataRows(6)以后取值都为零了，我表中数据明明不是零呀。下面是程序段，请专家指教。
Dim dr1 As DataRow
Dim cs1 As Double
Dim dr2 As DataRow
Dim cs2 As Double
Dim dr3 As DataRow
Dim cs3 As Double
Dim dr4 As DataRow
Dim cs4 As Double
Dim dr5 As DataRow
Dim cs5 As Double
Dim dr6 As DataRow
Dim cs6 As Double
Dim dr7 As DataRow
Dim cs7 As Double
Dim dr8 As DataRow
Dim cs8 As Double
dr1 = DataTables("基本参数").DataRows(0) \'引用第1行
cs1 = dr1("参数值") \'取工程项目立案后未签订合同报警天数
dr2 = DataTables("基本参数").DataRows(1) \'引用第2行
cs2 = dr2("参数值") \'取工程合同报出后未返回报警天数
dr3 = DataTables("基本参数").DataRows(2) \'引用第3行
cs3 = dr3("参数值") \'取工程合同返回后未收到预付款报警天数
dr4 = DataTables("基本参数").DataRows(3) \'引用第4行
cs4 = dr4("参数值") \'取工程开工后未收到二期款报警天数
dr5 = DataTables("基本参数").DataRows(4) \'引用第5行
cs5 = dr5("参数值") \'取工程竣工后未提交结算资料报警天数
dr6 = DataTables("基本参数").DataRows(5) \'引用第6行
cs6 = dr6("参数值") \'取结算资料提交后未向业主报送结算书报警天数
dr7 = DataTables("基本参数").DataRows(6) \'引用第7行
cs7 = dr7("参数值") \'取结算书送达业主后未审核结案报警天数
dr8 = DataTables("基本参数").DataRows(7) \'引用第8行
cs8 = dr8("参数值") \'取工程竣工后未收回保留款报警天数
|