Visual Basic

zimvbcoder wrote:

this == Me (VB)

Dim GnQy As Object = MyDs.Tables(0).Compute("sum(grn_qty)", "itm_code='" & ThsImCd & "' and grn_date<='" & Dt2<big>.ToString()</big> & "'")

Dim GnQy As Object = MyDs.Tables(0).Compute("sum(grn_qty)", "itm_code='" & ThsImCd & "' and grn_date<=#" & Dt2 & "#")

Paramu1973 wrote:

Dim Dt2 As DateTime = MaskedTextBox1.Text

This is the code where the commas get replaced by dots ...

      names = GetNames(dr)
      RemindersCombo.Items.Add(names)

    Private Function GetNames(ByVal MemDrow As DataRow) As String
        GetNames = ""
        If Not Convert.IsDBNull(MemDrow!Lastname) Then GetNames = MemDrow!Lastname & ", "
        If Not Convert.IsDBNull(MemDrow!Firstname) Then GetNames += MemDrow!Firstname
        Return GetNames
    End Function

And in this one (where I already know there are no nulls and do not need to check) it works just fine ...

    If flag = True Then
        name = dr!lastname & ", " & dr!firstname
        OverdueCombo.Items.Add(name)
        ListOfOverdue.Add(dr!Mnumber)
    End If

public void Run() {
    Form form=new Form();
    form.Bounds=new Rectangle(100, 100, 600, 600);
    form.BackColor=Color.White;
    form.Paint+=new PaintEventHandler(form_Paint);
    form.Show();
}

void form_Paint(object sender, PaintEventArgs e) {
    Graphics g=e.Graphics;
    int y=20;
    for (int i=8; i<14; i++) {
        Font font=new Font("Microsoft Sans Serif", i);
        string s="abc,.,ghi (MS Sans Serif "+i+" pt)";
        g.DrawString(s, font, Brushes.Black, 20, y);
        y+=30;
        font.Dispose();
    }
    g.ScaleTransform(2, 2);
    y=y/2;
    for (int i=8; i<14; i++) {
        Font font=new Font("Microsoft Sans Serif", i);
        string s="abc,.,ghi (MS Sans Serif "+i+" pt; scale 2)";
        g.DrawString(s, font, Brushes.Black, 40, y);
        y+=30;
        font.Dispose();
    }
}