疑問 - DBGrid的欄位格式

劍痞憶秋年 · 2007-05-29, 10:25 AM

語法:

'=======================================================
Private Sub Form_Load()
    ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;" & _
                  "Data Source=CC_walsin1_07_05_08_09_57_04R"
              
    Sql_Data = "SELECT JobName, JobProcessCode, JobBatchSet, " & _
                    "FLOOR(JobBatchAct * 10 + 0.5) * 0.1" , JobStatus, LastUser, LastAccess " & _
                    "FROM UA#JobArc"
   
    Adodc1.ConnectionString = ConnStr
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = Sql_Data
    Adodc1.Refresh
End Sub
'=======================================================

修改如上

'四捨五入取小數1位
"FLOOR(JobBatchAct * 10 + 0.5) * 0.1"
'四捨五入取小數2位
"FLOOR(JobBatchAct * 100 + 0.5) * 0.01"
'四捨五入取小數3位
"FLOOR(JobBatchAct * 1000 + 0.5) * 0.001"
依此類推

2007-05-29, 10:25 AM	#8 (permalink)
劍痞憶秋年長老會員榮譽勳章勳章總數4 UID - 15 在線等級: 註冊日期: 2002-12-06 住址: 步雲崖文章: 280 精華: 0 現金: 15847 金幣資產: 20867 金幣	語法: '======================================================= Private Sub Form_Load() ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;" & _ "Data Source=CC_walsin1_07_05_08_09_57_04R" Sql_Data = "SELECT JobName, JobProcessCode, JobBatchSet, " & _ "FLOOR(JobBatchAct * 10 + 0.5) * 0.1" , JobStatus, LastUser, LastAccess " & _ "FROM UA#JobArc" Adodc1.ConnectionString = ConnStr Adodc1.CommandType = adCmdText Adodc1.RecordSource = Sql_Data Adodc1.Refresh End Sub '======================================================= 修改如上 '四捨五入取小數1位 "FLOOR(JobBatchAct * 10 + 0.5) * 0.1" '四捨五入取小數2位 "FLOOR(JobBatchAct * 100 + 0.5) * 0.01" '四捨五入取小數3位 "FLOOR(JobBatchAct * 1000 + 0.5) * 0.001" 依此類推

	送花文章: 150, 收花文章: 33 篇, 收花: 130 次

Google 提供的廣告