主题：关于DRAWCELL

If e.Col.Name = "dj"   Or e.Col.Name = "je"
    If vars("显示") = False AndAlso e.Row.checked = False Then
        e.Text = "****" '则修改显示内容
    End If
End If

显示单价按钮，执行

vars("显示") = true

tables("表A").refresh