想在表格单元中不显示等于零的值，该怎么做？

Question

Set DataGrid1.DataSource = RSKC     '记录不是只读
Dim I As Integer
Dim J As Integer
If RSKC.RecordCount > 0 Then
For I = 1 To RSKC.RecordCount
DataGrid1.Row = I - 1      '当I=2时，运行到此提示数据类型不对       
For J = 3 To 5
DataGrid1.Columns(J).Text = IIf(Val(DataGrid1.Columns(J).Value) = 0, "", DataGrid1.Columns(J).Value)
Next J
Next I
End If

Answer 1

使用网格的自动翻译
value=0
displayvalue=""

Answer 2

flyahead0(苯鸟先飞),能不能再具体一点，谢谢

Answer 3

用一条sql把不等于0的记录选出来不行吗

Answer 4

同意 shuchang0626(舒畅) 

Answer 5

不行啊，在表中有二个数字型的列，一列是有0的值，一列是非0的值，交叉存在，
生成记录集后，不想在datagrid表格中显示0的值，所以想用循环去掉的是0的值。