智能排课系统vb代码(15)
发布时间：2021-06-05
和智能智能排课系统1、2、3是一套
For j = 0 To Rs.Fields.Count - 1 '遍列所有列
If Not IsNull(Rs.Fields(j).Value) Then '如果列中的数据不为空,切记不能用如 if Var1=Null来判断变量Var1的值是否为Null
Dgrid.TextMatrix(RowNum - 1, j) = Rs.Fields(j).Value '把列的数据显示在MsFlexGrid的相应网格中
End If
Next j
Rs.MoveNext '记录指针下移
Loop
End Sub
上一篇：现代高血压药物治疗策略与趋势
