close
參考引用Microsoft Data Formatting Object Library 6.0
例如:
Dim WithEvents fmt_cdatatype As StdDataFormat
Private Sub Form_Load()
Set fmt_cdatatype = DataGrid1.Columns(0).DataFormat
End Sub
Private Sub fmt_cdatatype_Format(ByVal DataValue As StdFormat.StdDataValue)
DataValue.Value = IIf(DataValue.Value = "C", "字串", "數值")
End Sub
例如:
Dim WithEvents fmt_cdatatype As StdDataFormat
Private Sub Form_Load()
Set fmt_cdatatype = DataGrid1.Columns(0).DataFormat
End Sub
Private Sub fmt_cdatatype_Format(ByVal DataValue As StdFormat.StdDataValue)
DataValue.Value = IIf(DataValue.Value = "C", "字串", "數值")
End Sub
全站熱搜
留言列表