Current mode to set significant digits
VB: Property Get/Let DigitMode As DIGITMOD
C++: DIGITMOD DigitMode
C#: DIGITMOD DigitMode
Sub DigitMode() Dim app As Origin.IOApplication Dim wks As Origin.Worksheet 'you may set the column data format as numeric and digits as Set Decimal Places=5 'the message box will output 1, as this mode's position in Digits' combo list app = New Origin.ApplicationSI wks = app.FindWorksheet("") 'get active worksheet If wks Is Nothing Then MsgBox("Can not get active worksheet") Exit Sub End If Dim digitmode As Integer digitmode = wks.Columns(0).DigitMode MsgBox(digitmode) End Sub
8.0SR2