error Declaration expected Option Strict On requires all variable declarations to have an As vb

kana2506...

SOLVED CLOSED ACTIVE ANSWERED
User: kana250688
Posted: 18 hours ago
Forum: ASP.Net Web Forms
Answer: 1
Views: 120

Dear Sir,

I'm trying convert C# to VB.NET But I have an error `Error BC30188 Declaration expected. & Error BC30209 Option Strict On requires all variable declarations to have an 'As' clause.` In VB.NET

Please Guide me.

Thanks

Code In c#

public class item
{
    public item(string _dt,int _MM,int _FC,int _AMS,int _KS)
    {
            dt = _dt;
            MM = _MM;
            FC = _FC;
            AMS = _AMS;
            KS = _KS;
    }
    public string dt { get;  set; }
    public int MM { get; set; }
    public int FC { get; set; }
    public int AMS { get; set; }
    public int KS { get; set; }
}


List<item> _list=new List<item>();
_list.Add(new item("2023-01-01", 12, 13, 24, 26));
_list.Add(new item("2023-01-01", 22, 23, 44, 46));
_list.Add(new item("2022-12-01", 32, 13, 24, 26));
_list.Add(new item("2022-12-01", 42, 13, 64, 26));
_list.Add(new item("2023-11-10", 62, 13, 94, 36));
_list.Add(new item("2023-11-23", 02, 13, 34, 46));

 var result = _list
         .GroupBy(g =>
             g.dt.Substring(0,7)
         )

         .Select(group => new
         {
             dateOfMonth = CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(int.Parse(group.Key.Split('-')[1]))
              + "-" + group.Key.Split('-')[0].Substring(2,2),
             MM = group.Sum(s => s.MM),
             FC = group.Sum(s => s.FC),
             AMS = group.Sum(a => a.AMS),
             KS = group.Sum(c => c.KS)
         }).ToList();

Code in VB.NET

Public Class item
		Public Sub New(ByVal _dt As String, ByVal _MM As Integer, ByVal _FC As Integer, ByVal _AMS As Integer, ByVal _KS As Integer)
			dt = _dt
			MM = _MM
			FC = _FC
			AMS = _AMS
			KS = _KS
		End Sub
		Public Property dt As String
		Public Property MM As Integer
		Public Property FC As Integer
		Public Property AMS As Integer
		Public Property KS As Integer
  End Class


Private _list As New List(Of item)()
`Error BC30188 Declaration expected. Below line code :
_list.Add(New item("2023-01-01", 12, 13, 24, 26))
_list.Add(New item("2023-01-01", 22, 23, 44, 46))
_list.Add(New item("2022-12-01", 32, 13, 24, 26))
_list.Add(New item("2022-12-01", 42, 13, 64, 26))
_list.Add(New item("2023-11-10", 62, 13, 94, 36))
_list.Add(New item("2023-11-23", 02, 13, 34, 46))


`Error BC30209 Option Strict On requires all variable declarations to have an 'As' clause.
 Dim result = _list.GroupBy(Function(g) g.dt.Substring(0,7)).Select(Function(group) New With {
	 Key .dateOfMonth = CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(Integer.Parse(group.Key.Split("-"c)(1))) & "-" & group.Key.Split("-"c)(0).Substring(2,2),
	 Key .MM = group.Sum(Function(s) s.MM),
	 Key .FC = group.Sum(Function(s) s.FC),
	 Key .AMS = group.Sum(Function(a) a.AMS),
	 Key .KS = group.Sum(Function(c) c.KS)
 }).ToList()

Download FREE API for Word, Excel and PDF in ASP.Net

Andrea

0 1

Reply
User: Andrea
Replied: 18 hours ago
Report

Hi @kana250688, Please try the following Windows Application Error: OleDbCommand.Prepare method requires all parameters to have an explicitly set type It might help you. Cheers Andrea.

dharmend...

0 2

Reply
User: dharmendr
Replied: 16 hours ago
Modified: 8 hours ago
Report

kana250688 says:

Private _list As New List(Of item)()

Instead of Private property declare a variable.

kana250688 says:

Dim result = _list.GroupBy(Function(g) g.dt.Substring(0,7)).Select(Function(group) New With {

Use As clause for defining the variable. In your case declares an object variable.

Dim _list As List(Of item) = New List(Of item)()
_list.Add(New item("2023-01-01", 12, 13, 24, 26))
_list.Add(New item("2023-01-01", 22, 23, 44, 46))
_list.Add(New item("2022-12-01", 32, 13, 24, 26))
_list.Add(New item("2022-12-01", 42, 13, 64, 26))
_list.Add(New item("2023-11-10", 62, 13, 94, 36))
_list.Add(New item("2023-11-23", 2, 13, 34, 46))

Dim result As Object = _list.GroupBy(Function(g) g.dt.Substring(0, 7)).Select(Function(group) New With {
    Key .dateOfMonth = CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(Integer.Parse(group.Key.Split("-"c)(1))) & "-" & group.Key.Split("-"c)(0).Substring(2, 2),
    Key .MM = group.Sum(Function(s) s.MM),
    Key .FC = group.Sum(Function(s) s.FC),
    Key .AMS = group.Sum(Function(a) a.AMS),
    Key .KS = group.Sum(Function(c) c.KS)
}).ToList()

kana2506...

0 3

Reply
User: kana250688
Replied: 14 hours ago
Report

Dear Sir,

Thanks for reply.

but still error `Declaration expected.`

Thanks

Dim _list As New List(Of item)()

below line code error `Declaration expected.``_List`

_list.Add(New item("2023-01-01", 12, 13, 24, 26))
_list.Add(New item("2023-01-01", 22, 23, 44, 46))
_list.Add(New item("2022-12-01", 32, 13, 24, 26))
_list.Add(New item("2022-12-01", 42, 13, 64, 26))
_list.Add(New item("2023-11-10", 62, 13, 94, 36))
_list.Add(New item("2023-11-23", 2, 13, 34, 46))

Dim result As Object = _list.GroupBy(Function(g) g.dt.Substring(0, 7)).Select(Function(group) New With {
    Key .dateOfMonth = CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(Integer.Parse(group.Key.Split("-"c)(1))) & "-" & group.Key.Split("-"c)(0).Substring(2, 2),
    Key .MM = group.Sum(Function(s) s.MM),
    Key .FC = group.Sum(Function(s) s.FC),
    Key .AMS = group.Sum(Function(a) a.AMS),
    Key .KS = group.Sum(Function(c) c.KS)
}).ToList()

dharmend...

0 4

Reply
User: dharmendr
Replied: 13 hours ago
Report

As per your shared code the is no declaration of _List.

Please check your code.

You have defined _List (capital L) some where in your code.

kana2506...

0 5

Reply
User: kana250688
Replied: 12 hours ago
Report

Dear Sir,

Sorry I typed the capital.

so it's still an error

Dim _list As New List(Of item)()

below line code error `Declaration expected.``_list`

_list.Add(New item("2023-01-01", 12, 13, 24, 26))
_list.Add(New item("2023-01-01", 22, 23, 44, 46))
_list.Add(New item("2022-12-01", 32, 13, 24, 26))
_list.Add(New item("2022-12-01", 42, 13, 64, 26))
_list.Add(New item("2023-11-10", 62, 13, 94, 36))
_list.Add(New item("2023-11-23", 2, 13, 34, 46))

Dim result As Object = _list.GroupBy(Function(g) g.dt.Substring(0, 7)).Select(Function(group) New With {
    Key .dateOfMonth = CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(Integer.Parse(group.Key.Split("-"c)(1))) & "-" & group.Key.Split("-"c)(0).Substring(2, 2),
    Key .MM = group.Sum(Function(s) s.MM),
    Key .FC = group.Sum(Function(s) s.FC),
    Key .AMS = group.Sum(Function(a) a.AMS),
    Key .KS = group.Sum(Function(c) c.KS)
}).ToList()

I agree, here is the link: https://www.e-iceblue.com/Introduce/spire-office-for-net-free.html

Description

Description is required.

error Declaration expected Option Strict On requires all variable declarations to have an As vb

Company

Explore

Follow us

Contact Us