vb.netcdbl的简单介绍

VB.net DataGridView

窗体中有个datagridview1的控件，共有3列，分别是column1,column2,total。

创新互联专注于企业营销型网站建设、网站重做改版、甘肃网站定制设计、自适应品牌网站建设、成都h5网站建设、商城网站建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为甘肃等各大城市提供网站开发制作服务。

在datagridview1的CellValueChanged事件中加入求和的语句。代码如下：

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, _

ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _

Handles DataGridView1.CellValueChanged

'最后一个单元格的值发生变化时，不计算。

If e.ColumnIndex = DataGridView1.Columns.Count - 1 Then

Exit Sub

End If

Dim Sum As Double = 0

Dim CurrentCellValue As Double

'计算除最后一个单元格以外的单元格的数值和

For i As Integer = 0 To DataGridView1.Columns.Count - 2

Try

CurrentCellValue = CDbl(DataGridView1.Rows(e.RowIndex).Cells(i).Value)

Catch ex As Exception

CurrentCellValue = 0

End Try

Sum += CurrentCellValue

Next

Try

DataGridView1.Rows(e.RowIndex).Cells("Total").Value = Sum

Catch ex As Exception

End Try

End Sub

vb中有这样一个代码 CDbl(Text1.Text) 这是什么意思啊？？

ext1.text = "10"

text2.text = "11"

text3.text = text1.text+text2.text

按道理应该得到10＋11（结果是21），但是返回什么呢？返回的是1011 这个是因为运算时候是字符运算 所以这样不行

那么怎么办呢？

text1.text = "10"

text2.text = "11"

text3.text = val(text1.text)+val(text2.text)

这样就返回21了 因为这里不是计算"11"+"12"而是计算11+12 前者等同于"11" "12"

如果是字符串或者空格会返回一个0 所以可以利用这一点过滤字符只能输入数字

vb.net 如何将时间戳转化为date类型

Dim unix As DateTime = #1/1/1970#

unix = unix.AddSeconds(CDbl("时间戳"))

MsgBox(unix)

'--------------------

百度VB2010(VB.NET)吧建设发展中,需要你的支持和帮助!!!

快加入我们吧!发表你的疑问,经验,程序,分享..

让我们共同进步!

vb.net如何运算一个字符串

调用 脚本解析引擎，

textbox2.text=Eval(textbox1.text).ToString()

Function Eval(ByVal Expressions As String) As Double

Dim Mssc = CreateObject("MSScriptControl.ScriptControl")

Mssc.Language = "vbscript"

Return CDbl( Mssc.Eval(Expressions))

End Function

不喜欢上面提示的警告的话

textbox2.text=EvalString(textbox1.text)

Function EvalString(ByVal Expressions As String) As String

dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")

Dim o = System.Activator.CreateInstance(oType)

oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})

Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()

End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧